home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
HandleBinary.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
1KB
|
39 lines
/* $VER: HandleBinary 0.31 (1.10.94) */
PARSE ARG BinFile OutFile .
/* Eigene Wünsche hier verwirklichen: */
ViewerCmd='Vt >>'OutFile BinFile
ListCmd='LhA v' BinFile '>>'OutFile
EntpackCmd='LhA -m -n x >>'OutFile BinFile
AbbruchCmd='Echo "--- Abgebrochen ---" >>'OutFile
OPTIONS RESULTS
dtlib='datatypes.library'
IF ~MyAddLib('rexxreqtools.library') THEN EXIT 10
IF ~MyAddLib(dtlib) THEN filetype=''
ELSE filetype='0A'X || 'Filetyp nach 'dtlib' : 'ExamineDT(BinFile,,VAR)
sel=rtezrequest('Diese Nachricht ist binär.' || filetype,,
'L_isten|_Lesen|An_sehen|_Entpacken|_Abbrechen')
SHELL COMMAND
SELECT
WHEN sel=1 THEN ListCmd
WHEN sel=2 THEN 'Copy' BinFile OutFile
WHEN sel=3 THEN ViewerCmd
WHEN sel=4 THEN DO
Tags='rtfi_flags=freqf_nofiles|freqf_save rt_pubscrname=ZPoint'
OutPath=rtfilerequest('RAM:',,'Auspacken nach:',,Tags)
IF rtresult THEN EntpackCmd '"'OutPath'"' ; ELSE AbbruchCmd
END
OTHERWISE AbbruchCmd
END
EXIT
MyAddLib: PROCEDURE
IF SHOW('L',ARG(1)) THEN RETURN 1
IF EXISTS('LIBS:'ARG(1)) THEN RETURN ADDLIB(ARG(1),0,-30)
ELSE RETURN 0